home *** CD-ROM | disk | FTP | other *** search
/ Pro One: Netcracker Netscape Navigator / ProOne: Netcracker Netscape Navigator.iso / pc / nc / wds / nc_vol.geo / 00005.ls < prev    next >
Encoding:
Text File  |  1997-03-19  |  2.7 KB  |  148 lines
  1. on startMovie
  2.   set the exitLock to 1
  3.   tell the stage
  4.     pause()
  5.   end tell
  6.   set the constraint of sprite 6 to 7
  7.   initVolume()
  8.   cursor([402, 403])
  9.   set the cursor of sprite 3 to [404, 405]
  10.   set the cursor of sprite 5 to [404, 405]
  11.   set the cursor of sprite 10 to [404, 405]
  12.   set the puppet of sprite 10 to 1
  13. end
  14.  
  15. on RestoreSoundStatus
  16.   set newLoc to the soundLevel
  17.   set the locH of sprite 6 to (newLoc * 15) + 11
  18.   if Get_PlayDub() then
  19.     set the castNum of sprite 3 to the number of cast "mute-down"
  20.   else
  21.     set the castNum of sprite 3 to the number of cast "mute-Up"
  22.   end if
  23.   updateStage()
  24. end
  25.  
  26. on initVolume
  27.   puppetSprite(6, 1)
  28.   puppetSprite(3, 1)
  29. end
  30.  
  31. on CheckDubbing
  32.   Set_PlayDub(not Get_PlayDub())
  33.   if Get_PlayDub() then
  34.     set the castNum of sprite 3 to the number of cast "mute-down"
  35.     puppetSound("NAR_ON")
  36.   else
  37.     set the castNum of sprite 3 to the number of cast "mute-Up"
  38.     puppetSound("NAR_OFF")
  39.   end if
  40.   updateStage()
  41. end
  42.  
  43. on stopMovie
  44.   repeat with i = 1 to 48
  45.     puppetSprite(i, 0)
  46.   end repeat
  47. end
  48.  
  49. on switchButt spriteNum, castDown, macroName
  50.   set flag to 0
  51.   set SaveCast to the castNum of sprite spriteNum
  52.   set flag to swapCast(spriteNum, SaveCast, castDown)
  53.   repeat while the stillDown
  54.     set flag to swapCast(spriteNum, SaveCast, castDown)
  55.   end repeat
  56.   if flag = 1 then
  57.     do(macroName)
  58.   end if
  59. end
  60.  
  61. on swapCast spriteNum, SaveCast, castDown
  62.   if rollOver(spriteNum) then
  63.     set the castNum of sprite spriteNum to the number of cast castDown
  64.     updateStage()
  65.     return 1
  66.   else
  67.     set the castNum of sprite spriteNum to the number of cast SaveCast
  68.     updateStage()
  69.     return 0
  70.   end if
  71. end
  72.  
  73. on handleExit
  74.   tell the stage
  75.     CheckOpenWindow()
  76.   end tell
  77. end
  78.  
  79. on setMapThumbSprite int
  80.   global MapThumbSprite
  81.   set MapThumbSprite to int
  82. end
  83.  
  84. on getMapThumbSprite
  85.   global MapThumbSprite
  86.   return MapThumbSprite
  87. end
  88.  
  89. on setCurrVol int
  90.   global CurrVol
  91.   set CurrVol to int
  92. end
  93.  
  94. on getCurrVol
  95.   global CurrVol
  96.   return CurrVol
  97. end
  98.  
  99. on InitStartPoints
  100.   global startPoints
  101.   set startPoints to "15,28,42,57,71,86"
  102. end
  103.  
  104. on getStartPoints
  105.   global startPoints
  106.   return startPoints
  107. end
  108.  
  109. on setRestrainSprite int
  110.   global RestrainSprite
  111.   set RestrainSprite to int
  112. end
  113.  
  114. on getRestrainSprite
  115.   global RestrainSprite
  116.   return RestrainSprite
  117. end
  118.  
  119. on initclickVolume
  120.   global clickVolume
  121.   set clickVolume to "9,22,36,50,65,80,94"
  122. end
  123.  
  124. on getclickVolume
  125.   global clickVolume
  126.   return clickVolume
  127. end
  128.  
  129. on initWhichVolume
  130.   global WhichVolume
  131.   set WhichVolume to "0,2,3,4,5,6"
  132. end
  133.  
  134. on getWhichVolume int
  135.   global WhichVolume
  136.   return value(item int of WhichVolume)
  137. end
  138.  
  139. on Set_PlayDub theVar
  140.   global PlayDub
  141.   set PlayDub to theVar
  142. end
  143.  
  144. on Get_PlayDub
  145.   global PlayDub
  146.   return PlayDub
  147. end
  148.